home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / ENTRPRIS / APE / AEPOOL / FRMPOOL.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-12-06  |  6.5 KB  |  194 lines
  1. VERSION 5.00
  2. Begin VB.Form frmPoolMgr 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Pool Manager"
  5.    ClientHeight    =   2100
  6.    ClientLeft      =   6780
  7.    ClientTop       =   1620
  8.    ClientWidth     =   4200
  9.    ClipControls    =   0   'False
  10.    Icon            =   "frmpool.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    ScaleHeight     =   2100
  14.    ScaleWidth      =   4200
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.ListBox lstLog 
  17.       Height          =   645
  18.       IntegralHeight  =   0   'False
  19.       Left            =   3270
  20.       TabIndex        =   0
  21.       Top             =   540
  22.       Visible         =   0   'False
  23.       Width           =   855
  24.    End
  25.    Begin VB.Label lblSatisfiedCap 
  26.       BackStyle       =   0  'Transparent
  27.       Caption         =   "Requests Satisfied"
  28.       BeginProperty Font 
  29.          Name            =   "MS Sans Serif"
  30.          Size            =   12
  31.          Charset         =   0
  32.          Weight          =   400
  33.          Underline       =   0   'False
  34.          Italic          =   0   'False
  35.          Strikethrough   =   0   'False
  36.       EndProperty
  37.       Height          =   300
  38.       Left            =   240
  39.       TabIndex        =   7
  40.       Top             =   180
  41.       Width           =   2535
  42.    End
  43.    Begin VB.Label lblRejectedCap 
  44.       BackStyle       =   0  'Transparent
  45.       Caption         =   "Requests Rejected"
  46.       BeginProperty Font 
  47.          Name            =   "MS Sans Serif"
  48.          Size            =   12
  49.          Charset         =   0
  50.          Weight          =   400
  51.          Underline       =   0   'False
  52.          Italic          =   0   'False
  53.          Strikethrough   =   0   'False
  54.       EndProperty
  55.       Height          =   300
  56.       Left            =   240
  57.       TabIndex        =   6
  58.       Top             =   540
  59.       Width           =   2535
  60.    End
  61.    Begin VB.Label lblWorkersCap 
  62.       BackStyle       =   0  'Transparent
  63.       Caption         =   "Number of Workers"
  64.       BeginProperty Font 
  65.          Name            =   "MS Sans Serif"
  66.          Size            =   12
  67.          Charset         =   0
  68.          Weight          =   400
  69.          Underline       =   0   'False
  70.          Italic          =   0   'False
  71.          Strikethrough   =   0   'False
  72.       EndProperty
  73.       Height          =   300
  74.       Left            =   240
  75.       TabIndex        =   5
  76.       Top             =   900
  77.       Width           =   2535
  78.    End
  79.    Begin VB.Label lblSatisfied 
  80.       BackStyle       =   0  'Transparent
  81.       BeginProperty Font 
  82.          Name            =   "MS Sans Serif"
  83.          Size            =   12
  84.          Charset         =   0
  85.          Weight          =   400
  86.          Underline       =   0   'False
  87.          Italic          =   0   'False
  88.          Strikethrough   =   0   'False
  89.       EndProperty
  90.       Height          =   300
  91.       Left            =   2880
  92.       TabIndex        =   4
  93.       Top             =   180
  94.       Width           =   1095
  95.    End
  96.    Begin VB.Label lblRejected 
  97.       BackStyle       =   0  'Transparent
  98.       BeginProperty Font 
  99.          Name            =   "MS Sans Serif"
  100.          Size            =   12
  101.          Charset         =   0
  102.          Weight          =   400
  103.          Underline       =   0   'False
  104.          Italic          =   0   'False
  105.          Strikethrough   =   0   'False
  106.       EndProperty
  107.       Height          =   300
  108.       Left            =   2880
  109.       TabIndex        =   3
  110.       Top             =   540
  111.       Width           =   1095
  112.    End
  113.    Begin VB.Label lblWorkers 
  114.       BackStyle       =   0  'Transparent
  115.       BeginProperty Font 
  116.          Name            =   "MS Sans Serif"
  117.          Size            =   12
  118.          Charset         =   0
  119.          Weight          =   400
  120.          Underline       =   0   'False
  121.          Italic          =   0   'False
  122.          Strikethrough   =   0   'False
  123.       EndProperty
  124.       Height          =   300
  125.       Left            =   2880
  126.       TabIndex        =   2
  127.       Top             =   900
  128.       Width           =   1095
  129.    End
  130.    Begin VB.Label lblStatus 
  131.       BeginProperty Font 
  132.          Name            =   "MS Sans Serif"
  133.          Size            =   12
  134.          Charset         =   0
  135.          Weight          =   400
  136.          Underline       =   0   'False
  137.          Italic          =   0   'False
  138.          Strikethrough   =   0   'False
  139.       EndProperty
  140.       Height          =   255
  141.       Left            =   240
  142.       TabIndex        =   1
  143.       Top             =   1710
  144.       Width           =   3915
  145.    End
  146. Attribute VB_Name = "frmPoolMgr"
  147. Attribute VB_GlobalNameSpace = False
  148. Attribute VB_Creatable = False
  149. Attribute VB_PredeclaredId = True
  150. Attribute VB_Exposed = False
  151. Option Explicit
  152. Private Sub Form_Load()
  153.     'Use clsPositionForm object to move
  154.     'Form to settings saved in registry
  155.     Dim oPosition As clsPositionForm
  156.     Set oPosition = New clsPositionForm
  157.     'Set U/I captions
  158.     ApplyFontToForm Me, giFONT_NAME_INDEX, giFONT_SIZE_INDEX, giFONT_CHARSET_INDEX
  159.     lblRejectedCap.Caption = LoadResString(giLBL_REJECTED)
  160.     lblSatisfiedCap.Caption = LoadResString(giLBL_SATISFIED)
  161.     lblWorkersCap.Caption = LoadResString(giLBL_NUM_WORKERS)
  162.     Caption = LoadResString(giPOOLMGR_CAPTION)
  163.     #If ccShowList Then
  164.         oPosition.Move Me, True
  165.         lstLog.Visible = True
  166.         lblStatus.Visible = False
  167.     #Else
  168.         oPosition.Move Me, False
  169.         Width = giDEFAULT_FORM_WIDTH
  170.         Height = giDEFAULT_FORM_HEIGHT
  171.     #End If
  172. End Sub
  173. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  174.     'Don't unload unless called from code.
  175.     If UnloadMode = vbFormControlMenu Then Cancel = False
  176. End Sub
  177. Private Sub Form_Resize()
  178.     #If ccShowList Then
  179.         Dim lX As Long
  180.         Dim lY As Long
  181.         If Me.ScaleHeight >= 2 * glFORM_MARGIN Then lY = (Me.ScaleHeight - (2 * glFORM_MARGIN)) Else lY = (2 * glFORM_MARGIN) - Me.ScaleHeight
  182.         If Me.ScaleWidth >= 2 * glFORM_MARGIN Then lX = (Me.ScaleWidth - (2 * glFORM_MARGIN)) Else lX = (2 * glFORM_MARGIN) - Me.ScaleWidth
  183.         lstLog.Move glFORM_MARGIN, glFORM_MARGIN, lX, lY
  184.     #End If
  185. End Sub
  186. Private Sub Form_Unload(Cancel As Integer)
  187.     'Use clsPositionForm object to save
  188.     'forms position in registry
  189.     Dim oPosition As clsPositionForm
  190.     Set oPosition = New clsPositionForm
  191.     oPosition.Save Me
  192.     gbShow = False
  193. End Sub
  194.